(delete-horizontal-space): Handle fields more generally.

diff --git a/lisp/simple.el b/lisp/simple.el
index 13020a98a52ba1cd364518979c49a49d134348bc..5331bcd52c6588d29747e291982b2ec172649bdf 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -332,9 +332,8 @@ Leave one space or none, according to the context."
 (defun delete-horizontal-space ()
   "Delete all spaces and tabs around point."
   (interactive "*")
-  (skip-chars-backward " \t")
-  (let ((start (max (minibuffer-prompt-end) (point))))
-    (delete-region start (progn (skip-chars-forward " \t") (point)))))
+  (skip-chars-backward " \t" (field-beginning))
+  (delete-region (point) (progn (skip-chars-forward " \t") (point))))
 
 (defun just-one-space ()
   "Delete all spaces and tabs around point, leaving one space."